home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1995 December / mac-action-06.iso / Inside Action / A Christmas Story / data / help / help.dir / 00062.ls < prev    next >
Encoding:
Text File  |  1995-05-30  |  1.0 KB  |  53 lines
  1. global gRoot
  2.  
  3. on startMovie
  4.   if the machineType = 256 then
  5.     set the picture of cast 60 to the picture of cast 67
  6.   end if
  7.   set the keyDownScript to "homeHandler"
  8.   set the timeoutScript to "timeOut1"
  9.   set the timeoutLength to 60 * 10
  10.   sound stop 1
  11.   sound stop 2
  12.   sound stop 3
  13.   sound stop 4
  14.   set the volume of sound 1 to 255
  15.   set the volume of sound 2 to 255
  16.   set the volume of sound 3 to 255
  17.   set the volume of sound 4 to 255
  18. end
  19.  
  20. on homeHandler
  21.   if the key = " " then
  22.     set the timeoutScript to EMPTY
  23.     go(1, gRoot & "home.dir")
  24.   end if
  25. end
  26.  
  27. on mouseUp
  28.   if the frame >= label("page1(auto)") then
  29.     return 
  30.   end if
  31.   if not rollOver(1) then
  32.     set the timeoutScript to EMPTY
  33.     go(1, gRoot & "home.dir")
  34.   end if
  35. end
  36.  
  37. on timeOut1
  38.   go("auto")
  39.   set the timeoutScript to "timeOut2"
  40.   set the timeoutLength to 5
  41. end
  42.  
  43. on timeOut2
  44.   if the lastRoll <= 6 then
  45.     go("main")
  46.     sound stop 1
  47.     set the timeoutLapsed to 0
  48.     set the timeoutScript to "timeout1"
  49.     set the timeoutLength to 60 * 30
  50.     cursor(-1)
  51.   end if
  52. end
  53.